home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1995 August
/
64er_Magazin_95-08_1995_Markt__Technik_de_Side_B.d64
/
balken demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
652b
|
37 lines
10 print"[147]":poke53280,0:poke53281,0
20 gosub 1000
30 gosub 1130
40 gosub 1180
50 print:print:print
100 end
1000 : rem string-initialsierung
1010 b$(1)="[180]"
1020 b$(2)="[181]"
1030 b$(3)="[161]"
1040 b$(4)="[182]"
1050 b$(5)="[170]"
1060 b$(6)=" [146]"
1070 wa$="[152] "
1080 wt$="[152] 0% working 100% "+"[151] [146]"
1090 wb$="[152] "+"[151] [146]"
1100 wc$="[152] [146] "+"[151] [146]"
1110 wd$=" [151] [146]"
1120 return
1130 : rem window oeffnen
1140 printwa$:printwt$
1150 printwb$:printwc$
1160 printwb$:printwd$
1170 return
1180 : rem balken darstellen
1190 print"";
1200 for x=0to 15
1210 : gosub 1240:print"";
1220 next
1230 return
1240 for y=1to6
1250 : printb$(y);+"[157]";:gosub1280
1260 next
1270 return
1280 : rem pausenschleife
1290 for i=0to 10:next:return